<SCRIPT language="JavaScript" type="text/javascript">
function moveX(x)
{
        sideMenu.style.pixelLeft += x;
}
function makeStatic()
{
        sideMenu.style.pixelTop=document.body.scrollTop+20;
        setTimeout("makeStatic()",10);
}
function locateMenu()
{
        moveX(-145);
}
function FM_ShowItIn(theName,theWantTop,theWantRight)
{
        document.all[theName].style.top = theWantTop + document.body.scrollTop;
        document.all[theName].style.Right = theWantRight + document.body.scrollRight;
}
self.setInterval("FM_ShowItIn('sideMenu',150,-145)",1); 
</SCRIPT>

<DIV ID="sideMenu" onmouseover="moveX(145)" onmouseout="moveX(-145)" style="Position:Absolute;Left:-155px;Top:150px;Z-Index:100;">
       <TABLE border="1" cellpadding="0" cellspacing="0" width="160" bgcolor="#000000">
              <TR>
	         <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
	                <TH class=tr3 align="center"><span style="font-size:20">ҳʽ</span></TH>
                        <%end if%>
                        <TD class=td8 align="center" rowspan="10" <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>width="16"<%end if%>>
                               <%if session("tslt_lgtype")=1 then%>
                                       <a class=a2 href=setmode.asp?action=hideme><span style="font-family:;font-size:25">Ҫ</span></a>
                               <%elseif session("tslt_lgtype")=2 then%>
                                        <a class=a2 href=setmode.asp?action=hideme><span style="font-family:;font-size:25"></span></a>
                               <%end if%>
                        </TD>
              </TR>
              <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                        <%call stylelist()%>
              <%end if%>
        </TABLE>
  
       <TABLE border="1" cellpadding="0" cellspacing="0" width="160" bgcolor="#ffffff">
                <TR>
                         <Td class=td8 align="center" width="50%"><span style="font-size:18">շ</span></Td>
                         <Td class=td8 align="center" width="50%"><span style="font-size:18">շ</span></Td>
                </TR>
                <TR class=tr3>
                         <Td align="center" height="20" width="50%"><span style='font-size:13px;'><%call todayACount()%></span></Td>
                         <Td align="center" height="20" width="50%"><span style='font-size:13px;'><%call yesterdayACount()%></span></Td>
                </TR>

       </TABLE>

        <TABLE border="1" cellpadding="0" cellspacing="0" width="160" bgcolor="#ffffff">
               <TR>
                         <Td colspan=2 class=td8 align="center"><span style="font-size:20">һܹˮ</span></Td>
                         <%call weekorder()%>
                </TR>
      </TABLE>

      <TABLE border="1" cellpadding="0" cellspacing="0" width="160" bgcolor="#ffffff">
                 <TR>
                           <Td colspan=2 class=td8 align="center"><span style="font-size:20">һ¹ˮ</span></Td>
                            <%call monthorder()%>
                 </TR>
       </TABLE>
</DIV>

<%
sub stylelist()
          dim rs,sql,sid,stylename
          sql="select * from style "
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sql, Conn, 1
                if rs.eof then response.write "<SCRIPT language=Javascript>passwords(promptInfo_sidemenu(0))</SCRIPT>"
                for i=1 to rs.recordcount
                      sid=rs("id")
                      stylename=rs("stylename")	  
                      response.write "<TR><TD align=center height=20 bgcolor=white ><span style='font-size:13px; text-decoration: none'><a href=setmode.asp?styleid=" &sid& ">" &stylename& "</span></a></TD></TR>"
                      rs.movenext
	    If rs.EOF Then Exit For
               next	  
         rs.close
        set rs=nothing 
end sub  

sub weekorder()
        conn.execute("delete * from userorder where weekmark=true")
        dim rs,sql,username
        sql="select * from ts_userinfo where loginNow>(now-7) order by id desc"
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.Open sql, Conn,1
                if rs.eof then response.write "<SCRIPT language=Javascript>passwords(promptInfo_sidemenu(1))</SCRIPT>"
                for i=1 to rs.recordcount
                         username=rs("username")
	        dim sql2,rs2
	        sql2="select count(subject) as weekAC from article where (user='"&username&"') and (AddTime>(now-7))"
                          Set rs2= conn.execute(sql2)
		    if rs2("weekAC")<>0 then
		         dim sql3,rs3
                                             sql3="select * from userorder"
		          Set RS3 = Server.CreateObject("ADODB.Recordset")
		          RS3.Open SQL3, Conn, 1, 3
    		                    rs3.addnew
			   rs3("username") = username
			   rs3("weekorder") = rs2("weekAC")
			   rs3("weekmark") = true
			   rs3.update
	                            rs3.close
		          set rs3=nothing
	                    end if
	           rs2.close
	           set rs2=nothing 
                             rs.movenext
	           If RS.EOF Then Exit For
                next	  
         rs.close
         set rs=nothing 
         dim rs4,sql4 
         Set rs4 = Server.CreateObject("ADODB.Recordset")
         sql4="select top 5 * from userorder where weekmark=true order by weekorder desc"
         rs4.Open sql4, Conn
                 if rs4.eof then
                        response.write "<SCRIPT language=Javascript>passwords(promptInfo_sidemenu(2))</SCRIPT>"
				 Else
	                    For j=1 To 5
                            If request("boardid")<>"" Then 			   
							     response.write "<TR class=tr3><TD align=center width=50% height=20><span style='font-size:13px;'><a href=" &Request.ServerVariables("SCRIPT_NAME")& "?boardid=" &request("boardid")& "&keyword=" &rs4("username")& "&sel1=>" &rs4("username")& "</a></span></TD><TD align=left><span style='font-size:13px;'>" &rs4("weekorder")& "ƪ</span></TD></TR>"

							ElseIf request("Communityid")<>"" Then
							     response.write "<TR class=tr3><TD align=center width=50% height=20><span style='font-size:13px;'><a href=" &Request.ServerVariables("SCRIPT_NAME")& "?Communityid=" &request("Communityid")& "&keyword=" &rs4("username")& "&sel1=>" &rs4("username")& "</a></span></TD><TD align=left><span style='font-size:13px;'>" &rs4("weekorder")& "ƪ</span></TD></TR>"
							Else
							     response.write "<TR class=tr3><TD align=center width=50% height=20><span style='font-size:13px;'><a href=index.asp?keyword=" &rs4("username")& "&sel1=>" &rs4("username")& "</a></span></TD><TD align=left><span style='font-size:13px;'>" &rs4("weekorder")& "ƪ</span></TD></TR>"                            
							End If 							   
							rs4.movenext
	                        If rs4.EOF Then Exit For
                        Next
                 End If		  
        rs4.close
        set rs4=nothing 			
end sub   

sub monthorder()
       conn.execute("delete * from userorder where monthmark=true")
       dim rs,sql,username
       sql="select * from ts_userinfo where loginNow>(now-31) order by id desc"
       Set rs = Server.CreateObject("ADODB.Recordset")
       rs.Open sql, Conn, 1
             if rs.eof then response.write "<SCRIPT language=Javascript>passwords(promptInfo_sidemenu(3))</SCRIPT>"
             for i=1 to rs.recordcount
                         username=rs("username")
	       dim sql2,rs2
	       sql2="select count(subject) as monthAC from article where (user='"&username&"') and (AddTime>(now-31))"
                         Set rs2 = conn.execute(sql2)
		   if rs2("monthAC")<>0 then
		          dim sql3,rs3
                                              sql3="select * from userorder"
		           Set rs3 = Server.CreateObject("ADODB.Recordset")
		           rs3.Open SQL3, Conn, 1, 3
    		                      rs3.addnew
			     rs3("username") = username
			     rs3("monthorder") = rs2("monthAC")
			     rs3("monthmark") = true
			     rs3.update
		             rs3.close
		             set rs3=nothing 
	                    end if
	        rs2.close
	        set rs2=nothing
                          rs.movenext
	        If rs.EOF Then Exit For
             next	  
       rs.close
       set rs=nothing 
       dim rs4,sql4
       Set rs4 = Server.CreateObject("ADODB.Recordset")
       sql4="select top 5 * from userorder where monthmark=true order by monthorder desc"
       rs4.Open sql4, Conn
                if rs4.eof then
                        response.write "<SCRIPT language=Javascript>passwords(promptInfo_sidemenu(4))</SCRIPT>"
				 Else
	                    For j=1 To 5
                            If request("boardid")<>"" Then 			   
							     response.write "<TR class=tr3><TD align=center width=50% height=20><span style='font-size:13px;'><a href=" &Request.ServerVariables("SCRIPT_NAME")& "?boardid=" &request("boardid")& "&keyword=" &rs4("username")& "&sel1=>" &rs4("username")& "</a></span></TD><TD align=left><span style='font-size:13px;'>" &rs4("monthorder")& "ƪ</span></TD></TR>"
							ElseIf request("Communityid")<>"" Then
							     response.write "<TR class=tr3><TD align=center width=50% height=20><span style='font-size:13px;'><a href=" &Request.ServerVariables("SCRIPT_NAME")& "?Communityid=" &request("Communityid")& "&keyword=" &rs4("username")& "&sel1=>" &rs4("username")& "</a></span></TD><TD align=left><span style='font-size:13px;'>" &rs4("monthorder")& "ƪ</span></TD></TR>"
							Else
							     response.write "<TR class=tr3><TD align=center width=50% height=20><span style='font-size:13px;'><a href=index.asp?keyword=" &rs4("username")& "&sel1=>" &rs4("username")& "</a></span></TD><TD align=left><span style='font-size:13px;'>" &rs4("monthorder")& "ƪ</span></TD></TR>"                            
							End If 							   
							rs4.movenext
	                        If rs4.EOF Then Exit For
                        Next
                 End If	
       rs4.close
       set rs4=nothing 			
end sub   

Sub todayACount() 
    Dim rs,sql
	sql="select count(id) as todayAC from article where addDate=date()"
    Set rs = conn.execute(sql)
        If rs("todayAC")<>0 Then
	        response.write rs("todayAC")
        Else 
            response.write "0"
		End If 
	rs.close
	Set rs=Nothing
End Sub

Sub yesterdayACount() 
    Dim rs,sql
	sql="select count(id) as yesterdayAC from article where addDate=(date()-1)"
    Set rs = conn.execute(sql)
        If rs("yesterdayAC")<>0 Then
	        response.write rs("yesterdayAC")
        Else 
            response.write "0"
		End If 
	rs.close
	Set rs=Nothing
End Sub

%> 